;;;QQ:67762207
[@IslandMainMenu]
{
#IF
IsAdmin
#SAY
{FCOLOR/10}Ա˵{FCOLOR/12} \
<ʼϷػ/@InitalIslandEvent> \
<ʼƽϷ/@BeginIslandEvent> \\
{FCOLOR/10}ʹ߲˵{FCOLOR/12} \

#IF
#say
˵һϷϷĹ\\
Ϸǻʼ20ڿ볡3ʱϷŻ\
ϷʱȫᱻٻϷصȡ\
ϷϷ޶ʱ1Сʱ, ޶ʱԺ5ϵĻϷʧܡ\
ϷؿԼ˵֡\
{FCOLOR/10}עڻƽϷеĹǿ{FCOLOR/12} \\
<μӻƽϷ/@JoinIslandEvent> \

[@InitalIslandEvent]
#CALL [EventSystem\IslandGame\IslandGame.txt] @FinishIsland

[@BeginIslandEvent]
#CALL [EventSystem\IslandGame\IslandGame.txt] @StartIsland

[@JoinIslandEvent]
#CALL [EventSystem\IslandGame\IslandGame.txt] @JoinIsland
}

[@StartIsland]
{
#if
#act
MOV D1 0
loadvalue D1 "ParamControl\.ini" [ƽϷ] Ϸ

#if
equal D1 0
#ACT
LineMsg "Grobal" "(*) ƽϷ1Ӻʼ,Ҫμӵҵ402:119Ϸ"
Delaygoto "Grobal" 60 @OpenGateGoldenIsland 10010
break

[@OpenGateGoldenIsland]
#ACT
SAVEVALUE  "ParamControl\.ini" [ƽϷ] Ϸ 1
LineMsg "Grobal" "(*): ƽϷʼˡҪμӵҵ402:119Ϸ"
ResetMapAttr "E003"
SetEventDamage E003 7 ;;õͼ﹥?
SetEventMap "E003"
ChangeMapAttr "E003" "NOCHAT"
mov N1 0          ;;N1ˢʱ㣬20
mov N2 0          ;;N2ʱ㣬1 
goto @GenMonkeys
goto @CheckFinishCondition

[@GenMonkeys]         ;;˺Ϊһѭĺˢֺͼ
#if
#act
MOV D1 0
loadvalue D1 "ParamControl\.ini" [ƽϷ] Ϸ

#IF
Equal D1 0     ;;ϷûпʼѾ
#ACT
break

#IF
!CheckMonMap "E003,40,40,40" 90 
#ACT
MonGenP "E003,40,40,30" Գս 45 "noitem"
MonGenP "E003,40,40,30" Գսʿ 45 "noitem"
MonGenP "E003,40,40,30" ħ1 20 "noitem"
ChangeMonLevel "E003" "Գս" 99
ChangeMonLevel "E003" "Գսʿ" 99
ChangeMonLevel "E003" "ħ1" 99
ApplyMonEx "E003,40,40,40" Գս [MonsterSide] ""
ApplyMonEx "E003,40,40,40" Գսʿ [MonsterSide] ""
ApplyMonEx "E003,40,40,40" ħ1 [MonsterSide] ""

#IF
Equal N2 2  ;;40ù¼һ
#ACT
ApplyMonMission "E003, 40, 40, 40,9999" "" "E003,40,40"

#IF
Equal N2 4 ;;80ù·ֲ4ط
#ACT
ApplyMonMission "E003, 40, 40, 30, 10" "" "E003, 16, 18"
ApplyMonMission "E003, 40, 40, 30, 10" "" "E003, 16, 55"
ApplyMonMission "E003, 40, 40, 30, 10" "" "E003, 66, 16"
ApplyMonMission "E003, 40, 40, 30, 10" "" "E003, 66, 55"

#IF
Equal N2 8 ;;160ʱչ
#ACT
mov N2 0
MonClear "E003" ""
goto @GenMonkeys
break

#IF
#ACT
Inc N2 1             ;;+1
DelayGoto "Grobal" 20 @GenMonkeys 10011 ;;ѭ

[@CheckFinishCondition]          ;;
#if
#act
MOV D1 0
loadvalue D1 "ParamControl\.ini" [ƽϷ] Ϸ

#IF
Equal D1 0
#ACT
break

#IF
Equal N1 20 ;;20ӺڽϷ
#ACT
SAVEVALUE  "ParamControl\.ini" [ƽϷ] Ϸ 2
LineMsg "Grobal" "(*) :ƽϷͨѾر"

#IF
ELarge N1 20 ;;20ͼûˣʧ
!CheckHum "E003" 1
#ACT
goto @IslandEvent_Fail
break

#IF
ELarge N1 20 ;;20Ӻͼ4
!CheckHum "E003" 4
#ACT
goto @IslandReward
break

#IF
Equal N1 23 ;;23Ӽһ
#ACT
MapTing E003 E003 40 40

#IF
Equal N1 25 
#ACT
MapTing E003 E003 40 40

#IF
Equal N1 28
#ACT
MapTing E003 E003 40 40

#IF
Equal N1 29
#ACT
MapTing E003 E003 40 40

#IF
ELarge N1 30 
#ACT
goto @IslandEvent_Fail
break

#IF
CheckHum "E003" 0
#ACT
LineMsg "E003" "(!) Ϸ<$OUTPUT(P9)>档"
LineMsg "E003" "(!) ϷϷѾ'<$OUTPUT(N1)>'ӡ"
Inc N1 1
DelayGoto "Grobal" 60 @CheckFinishCondition 10012  ;;60ѭһ
break

[@IslandEvent_Fail] ;;Ϸʧ
#ACT
MapTing E003 1 403 122
MonClear "E003"
SAVEVALUE  "ParamControl\.ini" [ƽϷ] Ϸ 0
LineMsg "Grobal" "() :ƽϷʧˡ"
Delaygoto "Grobal" 3600 @GoldIslandReadyCorrect 10014 ;;2СʱʼϷ
break

[@IslandReward]
#ACT
ChangeMapAttr "E003" "SAFE"
MonClear "E003"
LineMsg "Grobal" "() :ƽϷɹˡ"
SAVEVALUE  "ParamControl\.ini" [ƽϷ] Ϸ 0
MapTing E003 E003 40 40
Delaygoto "Grobal" 300 @TingCorrect 10013
GiveExpMap E003 10000000
DropItemMap "E003,40,40,15" ־ 1 10 ;;ͼƷ

[@TingCorrect]
#ACT
MapTing E003 1 403 122
Delaygoto "Grobal" 3600 @GoldIslandReadyCorrect 10014


[@GoldIslandReadyCorrect]
#ACT
;;LineMsg [Grobal] "(!) ƽϷˡ"
SAVEVALUE  "ParamControl\.ini" [ƽϷ] Ϸ 0
ClearDelaygoto 10010
ClearDelaygoto 10011
ClearDelaygoto 10012
ClearDelaygoto 10013
ClearDelaygoto 10014
}

[@FinishIsland]
{
#SAY
Ϸػ? \\
</@FinishIsland_Confirm> \
</@exit> \\

[@FinishIsland_Confirm]
#ACT
LineMsg "Grobal" "(!) ƽϷˡ"
SAVEVALUE  "ParamControl\.ini" [ƽϷ] Ϸ 0
MonClear "E003"
MapTing E003 1 403 122
ClearDelaygoto 10010
ClearDelaygoto 10011
ClearDelaygoto 10012
ClearDelaygoto 10013
ClearDelaygoto 10014
Close
}

[@JoinIsland]
{
#if
#act
MOV D1 0
loadvalue D1 "ParamControl\.ini" [ƽϷ] Ϸ

#IF
Equal D1 1
#act
goto @JoinGoldenIsland
#ELSESAY
ڲܲμӻƽϷ\\
<  /@exit>

[@JoinGoldenIsland]
#act
MOV D1 0
loadvalue D1 "ParamControl\.ini" [ƽϷ] Ϸ

#IF
Equal D1 1
CheckGold 50000                 ;;ȡFLD_FAREעĽ!
#ACT
Take  50000
Map E003
break
#ELSESAY
Ǯ... \\
<  /@exit>
}
;;;QQ:67762207